1 .
2 .
3 . 3D CORNERS
4 . BY DIETER HEINERMAN
9 NT=0
10 clear 
11 FC=7
16 for A=1to 44step 1
17 if TR(1)=1goto 50
18 if TR(2)=1clear 
19 BC=7mul B
20 box A,-A,A,A,3
25 box -A,A,A,A,3
30 box A,A,A,A,3
34 box -A,-A,A,A,3
35 &(22)=255;&(18)=A
36 next A
37 B=rnd (255)
39 FC=B
40 goto 16
50 for A=44to 1step -2
70 goto 20
:return ;run 
